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000000* 
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397 
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000034* 
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000060 
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(;i00000 
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000000 
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408 
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000000 
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000000 
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0«»0000 
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429 
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000040 



lOMOD <npEC >,l#l»4,4»,0,72 

MODULE 140000, npEC , I # 1 , 4, 4» , 0. 72 

.TITLE Dt'EC f)EC/XU SYSTFM EXERCISEH MODULE 

DDXCOM VERSIOh 6 23«f'AY-78 

,LIST BTM 



PF.GIMl 

HODNAH 

XFLAGi 

ADDRI 

VECTOH 

BRll 

BR2I 

nVlDJ I 

SRI I 

SR2I 

SR3I 

SR4I 

STATi 

INJTI 

SPOINT 

PABCNT 

ICONTi 

ICOUNT 

SOFCNT 

HRPCNT 

SOFPAS 

HRDPAS 

SYSCNT 

PANNUM 

CONFIG 

PESlI 

PE52I 

SVR0I 

SVRll 

5VP2I 

SVP3I 

SVP4I 

SVP5I 

SVR6I 

CSRAi 

SBADRi 

ACSRI 

WASADR 

ASTATi 

EPRTYP 

ASBl 

AMASS 

PSTRTi 

SvDTOl 

WDFRl 

liJTPI 

IDNUMi 



«»«»»««'iHt»«« «#»#««■«« «#«#*»< 



■ft******************-******************** 



.ASCII 

.BYTE 
J+0 

U0 

.BYTE 

.BYTE 

♦ I 

OPEN 

OPEN 

OPEN 

OPEN 

140000 
STAPT 

I MODSP 

I 




/DPEC / 
OPEN 



PRTY4+0 
PRTY4+0 



«««»«»»«'««««««#«« 









OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OP FN 

OPEN 

RESTRT 

OPEN 

OPEN 

OPEN 

72 

,REPT 



I MODULE NAME, 

jUSLD TO KEEP TRACK OF i^BUFF USAGE 
flST DEVICE ADDP, 

llST DEVICE VECTOR, 

>1ST PR LtVEL, 

»2ND BR LEVEL, 

IDEVICE INDICATOR I, 

jSwITCH REGISTER I 

JS^MlTCH REGISTER 2 

fSWITCH REGISTER 3 

? SWITCH REGISTER 4 

«»»«»»#«»#»#*««#»«#»»♦■»»»■»»«»«**»*«*»** 

ISTATUS WORD, 

» NODULE STAPT ADDR, 

IMOUULE STACK POINTtR. 

IPASS COUNTER, 

}» OF ITERATIONS PER PASSk0 

ILOC TO COUNT ITERATIONS 

JIOC TO SAVE TOTAL SOFT ERRORS 

tLOC TO SAVE TOTAL HARD ERRORS 

jLOC TO SAVE SOFT ERRORS PER PASS 

;LOC TO SAVE HARD ERRORS PER PASS 

|« OF SYS ERRORS ACCUMULATED 

fHOLDS RAWOOH « WHEN RAND MACRO IS CALLED 

JRESERVED FOP MONITOR USE 

»RESEPVED FOR MONITOR USE 

jRESEHVED FOR MONITOR USE 

>LOC TO SAVE R0, 

;LOC TO SAVE Rl, 

ILOC TO SAVE R2, 

jLOC TO SAVE R3. 

ILOC TO SAVE R4, 

jLOC TO SAVE R5, 

ILOC TO SAVE R6, 

lADDR 0*^ CURRENT CSR, 

lADOR OF GOOD DATA, OR 

ICONTENTS OF CSR, 

lADDR OF BAD DATA, OR 

ISTATUS PEG CONTENTS, 

ITYPE OF ERROR 

{EXPECTED DATA, 

FACTUAL DATA, 

IRESTAPT ADDRESS AFTER E.MD OF PASS 

IWORDS TO MEMORY PER ITERATION 

IWOPDS FROfi MEMORY PER ITERATION 

|# Ul- INTERRUPTS PER ITERATION 

iMODULE IDENTIFICATION NUMBER=72 

IMODULE STACK STARTS HERE, 
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XDREC0,P11 27-MAR-79 0Bj57 

431 
432 
433 

434 

435 000224* 
436 



MACYll 30A(J0'52) 27-MAP-79 09:00 PAGE U 



.NLI5T 
.WORD 
.LIST 
,ENPP 
MODSP I 



DFFC nEC/Xli SYSTEM EXERCISEF "ODULE ^'ACV11 30AC1052) 27"MAR«79 U9|00 PAGE 12 
XDREC0,Pn 27"HAp«79 e8|S7 

^37 lUSEH REQUIPED INFORMATION 

438 ti0{l224' 000001 AODR?! 1 jUSEh Ef^TERFU ADDRESS OF 1ST CSH OF FIRST ^QUO 

aL! ««,..,. ^. ^ ^^f" f'^'^ST DPUF. (IF ANY) ENTERED FOR TEST, 

440 000226* P00001 VECT2S I jUSER ENTERED VECTOR ADDRESS OF FIRST tvORD OF 

JFIHST DRUM CIF ANSfJ ENTERED FOR TEST, 



441 
442 



^^3 jMODULE REQfllRED REGISIERS • SET UF BY THIS MODULE. 
444 

445 00fe230' 000000 HRLADPI OPEN jADL'hESS OF CURRENT DRllL UNDER lEST 

446 000232' 000000 nRtORPJ OPEN 

447 KJ0K1234' 000000 DRMADRl OPEN jADDRESS OF CURRENT DFUM UNDER TEST 

448 000236' 000W0P DRMDBRJ OPEN 

449 0fatr)240' 0000W0 DVIPLf OPEN jPOINTS TO DR11L5 TO BE EXERCISED 

450 000242' 000000 DVIOMi OPEN JPOINTS TO OFllMS TO BE EXERCISED, 

451 000244' 000000 SRll OPEN iPOINTS TO DPULS »^1TH H89i3 INSTALLED. 

452 060246' 000000 srhi OPEN IPOINTS TO DRUMS WITH H8913 INSTALLED. 
til «S255S; 'tS^^tS ^^^' ^^^^ IPOINTS TO DRllL AND DRUM CABLED PAIR, 

454 000252 000000 DRVCTl OPEH iGETS LOADED FROM VECTOR OR VECT2 OF DEVICE UNDER TEST. 

ill T^llil fH000<^ VCTCALl OPEN ,SAME AS DRVCT ONLY CALCULATED FROM DEVICE CSR. 

:«; „S ?! . ^^^'^^^^ PRIORI OPEN IPRIORITY OF DEVICE AS CALCULATED FROM DEVICE CSR, 

457 P«M260' 000000 POINTI OPEN >PO|NTER 10 CURRENT DEVICE UNDER TEST, 

458 000262' 000000 ITCJTI OPEN ICONTAINS LOOP COUNT 

459 000264' 140700 ITSETl 140700 iCO^-TIANS NUMBER TO SET ITCNT TO 
*f^ lit* ORDER 10 GET 1 MIN, OF RUN TIME. 
ZZt fPESTRT MAY VARY THIS NUMBER IF RUNNING 
462 



JMULTIPLE DEVICES IN ORDER TO SHORTEN RUN TIME, W 



463 000266' 000000 IfLAGl OPEN jFLAG USED TO INDICATE IF AN 

*^J ^, , » INTERRUPTED OCCURED 0aNOjl=-YES, 

465 000270' 000000 WARNj OPEN jFLAG USED TO TYPE A WARNING MESSAGE IF = 0. 

466 000272' 000000 PATPNT! OPEN ;POINTS TO CURRENT PATTERN, 
467 

468 

469 f 

47"^ ;THIS SECTION WILL TAKE ALL THE INFORMATION AS 

*"'* JENTERED BY THE USER AND MAKE CORRESPONDING 

472 jSOFTKARE FLAGS. 

473 , 
474 

475 00^274' P16701 177514 STARTi MOV DVIDl,Rl ,DEV COUNT TO Rl 

476 000300' 0062^1 Uj A5R RJ ISHIFT IN A BIT 

477 000302' 101402 BCS 28 jIF A BIT IN THIS POS-SHIFT 
47B 000304' 001413 BEQ 38 jiF NO DEVS LEFT - BRANCH 

479 000306' 00P774 PP 18 

480 000310' P62767 000003 177602 2SI ADD S3,1NTR j3 MORE INTERRUPTS 

481 000316' 062767 000003 177570 ADD S3»WDT0 >3 MURE WORDS TO MEM 
48? 000324* 062767 000003 177564 ADD »3,wDFP >3 MOPE WORDS FROM MEM 

483 000332' 000762 BR IS |G0 CHECK SOME MORE 

484 000334* 005767 177446 3SI TST ADDP |ANY DRllL ADDR, ENTERED? 

485 000340' 10040«l BMI ST2 lYES -»^E CAN PROCEED. 
486 

487 000342* 005767 177656 TST ADDR2 jf^O L'S BUT IS ANX DRUM ADDR. ENTERED? 

488 000346* 100402 bMI ST2 J yE5-PR0CEED. 
489 

490 000350* 000167 001712 JMP DROP jNU.NO DRllL OR DRUM-LETS DROP THIS MODULE. 

492 000334' ST2f 
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493 000354* 005767 177426 TST ADDR ,ANY DRllL ADDRESS FNTEFED? 

494 000360' 100011 BPL 1$ jNO - SKIP NEXT CODE UNTIL IS. 
495 

496 000362* 016767 177426 177654 MOV DVIDUSHL t iES SET UP DPUL FLAGS. 

497 000370* 046767 177422 177646 BIC SP!,SRL |MAKE DRllL W/H8913 FLAG. 

498 fe3tj0376' 016767 177412 177634 MOV DVl(M,DVinL jKKEP TRACK OF DRULS SELECTED, 

500 000404' 005767 177614 IS! TST AI>DP2 ;ANY DRUM ADDRESSES ENTERED? 



501 000410' 100011 BPL 2S 

502 



|NQ - SKIP NEXT CODE UNTIL 2S. 



503 000412' 016767 177376 177626 MOV DVIDUSRM ,yf,S SET UP DRUM FLAGS. 

504 fr.00420' P46767 177372 177620 BIC SH1,SPM if^AXt DRUM vv/89U FLAG, 

5e5 W00426* 016767 177362 177606 MuV DVIDl,DVirM jHEFP TRACK OF DRUMS SELECTED, 
506 

507 000434* 016767 177354 177606 251 MOV DVID1,SHb jWOW MAKE A FLAG TO 

508 P00442' 046767 177576 177600 BIC SHLiSRB }SHO«y HO^ MANY DRULS ARE 

509 000450* 046767 177572 177572 PIC 5PM, SRB iCONK'ECTED TO DRUMS 
510 

511 . 

Ill fTHIS SECTION OF CODE WILL ADDRESS ALL DRULS 

^^5 .'SELECTED FOR TFST, IF An^ PRllLS FAIL 10 RETURN 

514 ;SLAVE-SYNC TO THE CPU, A "SYS ERP" WILL OCCUR 

515 I 

516 000456* 012767 0P0001 177574 CKADPl MOV UUPOINT jSET UP POINTER, 

517 ci0?4f.4' (.16767 1^7316 177536 MOV Ar^DR,DRLADP JPOINT TO FIRST DRUL ALDRESS. 

510 000472* 036767 177562 J77540 ISl BIT POINT, DVIPL jANY URUL SELECTED? 
519 000500* 001402 BFO 2S |N0 - GOTO 2S. 

520 

521 fo00502* 005777 177522 TST (SDRLADR ,iES - ADDRESS THE DRUL, 

522 

523 000506' 062767 000^^04 177514 2$I ADD #4,DRLADP fUPPATE TO LOOK AT NEXT DRUL ADDP 

524 000514' 006367 177540 ASL POINT IPOINT TO NEXT DEVICE, 

525 000520* 103364 BCC IS ,LOOP IF NOT LOOKED AT ALL POSSIBLE DRULS. 
526 

527 , 

528 iTHls SECTION v^JLL ADDRESS ALL DRUMS SELECTED 
^^^ IFOR TEST, IF ANY DRUMS FAIL TO RETURN 

53vi ;SLAVE-SY^'C TO THE CPU, A "SYS ERR" wILL OCCUR. 

531 J 

532 

533 000522* 012767 0W0?01 177530 MOV #1, POINT jSET UP POINTER. 

534 000530' 016767 177470 17747b MOV ADDP2,DRMADR IPOINT TO HRST DRUM ALUR. 

336 000536* 036767 177516 177476 381 BIT POINT, DVIDM jaNY DRUM SELECTED? 

337 000544' 001402 BEQ 4S jNO - GOTO 4$, 



MOV 
MOV 


#1, POINT 
ADDP2,DRMADR 


BIT 

BEQ 


POINT, DVIDM 
4S 


TST 


9DPMADR 


ADD 
ASL 
BCC 


«4,DRMADR 

POINT 

3S 



538 

539 000546* 005777 177462 TST SDRMADR i yES » ADDRESS THE DRUM. 

540 

541 000532* 062767 00^004 177454 4Sl ADD #4,DRMADR jUPDATE TO LOOK AT NEXT DRUM ADDR 

542 000360' 006367 177474 ASL POINT IPOINT TO NEXT DEVICE, 

543 000564' 103364 BCC 38 iLOOP IF NOT LOOKED AT ALL POSSIBLE DRUMS, 
544 

545 I 

lit ITHIS SECTION OF CODE NILL COMPARE THE VECTOR ADDRESS 

11' lENTEPED PY THE OprpATOR AGAINST THE VECTOR ADDRESS 

^*^ ICALCULATED BY THE PROGRAM FOR THE DRUL BY READING 



) 



fc00S66' 
000574' 
«*00602' 



^12767 000^^01 177464 
P16767 177206 177426 
016767 177202 177442 



£'«5i^610' ^-051^67 177454 



4^36767 177440 17741^ 

001474 

0ib767 177400 177246 

^■26727 177414 0001(^0 
002020 

ei2767 000015 177236 

U14405 00000a' Cl000k)f 
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549 

550 

551 

552 

533 

554 

555 

55b 

557 

55s 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

587 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 



000614' 
000622' 
0Wk3624' 

000632' 
000640' 

000642' 

0(30650* 



000656' 
e'00662' 
K00666' 
000672' 
ki00700' 
000702' 
000710* 



005067 
005067 
005067 
104403 
000456 
016767 



004767 002010 



000714* 026767 177332 J77332 
000722* £'01420 

000724' 104405 000000* 0((^0000 



000732* 
(•00740* 
0ki0746* 
000754' 
00k3762* 

000764' 
000770' 

00-^772' 

00100«1' 



046767 177322 177300 

046767 177314 177276 

046767 177306 177274 

104403 000000* 003154* 
000414 

005767 177300 

001<''}11 

026727 177260 000005 
003405 
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lITS r.sp 



CKVlAi 



177356 
177356 
177356 

00000'3* 003154' 

177322 177170 2S| 



001002' 104403 000000' 003144* 



NOV 
MOV 



RIT 

MOV 

CVP 
Bf.E 

HOV 



Kl, POINT 

ftDrp,DBLADP 

VFCTOn,nHVCT 



POINT, uvini, 

4S 

DPT-ADP,CSRA 

DPVCT»«100 
2S 

#15.EPRTYP 



jSEl UP POlNTtH, 

1&F.T UP FIHST DPllL APDhtSS, 

JSET UP FIRST DRllL VECTOR ADDP, AS 

JbNTEPED PY USER, 

llfiDICATE THAT .»U (EARNING MESSAGE, 

;HAS HEEN TYPED, 

JANV CRUI- SELECTED? 

•,H0 GOTO 4S, 

JSET DRUL ADDK, FOR EKPOR TYPEOUT (IF ANY), 

JTS VECTOH ADOR, > 100? 
US YES GOTO 2S, 



jWpOwG VEC ADDP, 
KRDER8,BEGIK',NULL tsDRllL VECTOH LESS THAf^ 100 



CLf UVIDL 

CLP SBL 

CLR SPB 

KSGNS,BEGIN,MS4P 

BR 5S 

MOV DPLADP,CSPA 

JSR PC#GFTVP 



CMp 
BEQ 



PRVCT,VCTCAL 
3S 



r^UlE IF ANY VECTOR WERk ALLOwED 

ITO BE LESS THAf^ 100, IT COULD 

jINTEKFEh* WITH SOFTWARE TRAP CALLS, ETC, 

JOROP ALL SOFTWARE 

jFLAGS THAT POINT TO AMY DRULS, 

J ASCI I MESSAGE CALL WITH COMMON HEADER 
JEXII THIS TEST 

jSET DRllL ADDR, FOR TYPEOUT (IF ANY), 
;G0 GET VECTOR + PPiOplTY FROM URllL CSH 

inOFS THE USER ENTERED VECTOR ADDRESS AGREE 
Ji*lTH THE ADDRESS READ FROM THE CSR? 
jbR IF YES TO 3S, 



H|iOEP$, BEGIN, FULL • EN'iERED VEC ADDR NOT SAME AS ONE IN CSH, 



BIC PfiINT,DVTnL 
BIC POIKTrSPL 
PIC POINT, SPB 
MSGNS, BEGIN, MS4P 
PR 4S 



TST 

BNE 



Cf'P 
BLE 



wAprj 

4S 



PRIOR, «5 
4S 



MsGNS, BEGIN, Ms2p 



J YES, 



jDROP ALL SOFTWARE 

IFLAGS THAT POIMT TO 

?ANY DBULS 

lASCII MESSAGE CALL WITH COMMON HEADER 

JGOTO 4S 

JHAS ANY WARNING MESSAGE BEEN TYPED OUT? 
ntS - GOTO 4$ 

>N0, IS THE PRIUPll'Y OF THIS DEVICE > 5? 
!^0 GOTO 4S 

lASCII MESSAGE CALL WITH COMMON HEADER 
iTEXl! WARNINGl OPUL/H PRIORITY IS 
JGRFATEP THEN 5, THIS MAY INTERFER ^iljii 
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605 










606 


001010* 


005267 


177254 




607 










608 


001014* 


4 62767 


0P0P04 


177206 


609 


001022* 


062767 


00flM(»4 


177222 


610 


001030* 


<»06367 


177224 




611 


001034* 


103267 






612 










613 


001036' 








614 










615 










616 










617 










618 










619 










620 


001036* 


012767 


000pr»i 


177214 


621 


001044* 


016767 


177154 


177162 


622 


0k^l05k* 


fal6767 


177150 


177172 


623 










624 










625 


001060' 


036767 


177174 


177154 


626 


001066' 


001477 






627 










62P 


001070' 


016767 


177140 


177002 


629 


001076' 


02672"' 


177150 


000100 


630 


001104' 


002020 






631 










632 










633 


001106' 


f^l2767 


00^015 


176772 


634 










635 


001114' 


104405 


0£^0000* 


000000 


636 










637 










638 










639 










640 










641 


001122' 


005067 


377114 




642 


001126' 


005067 


177114 




643 


001U2' 


005067 


177)12 




644 


6;0U36' 


104403 


00?W00* 


003154* 


645 


001144' 


000461 






646 










647 


001H6' 


016767 


177062 


176724 


648 


001154' 


004767 


001544 




649 










650 


001160' 


026767 


177066 


177066 


651 










652 


00U66* 


001423 






653 










694 


001170' 


ei2767 


000015 


176710 


655 










656 


001176* 


1044CT5 


000000' 


000000 


6S7 










6S8 










659 


001204* 


046767 


1770S0 


177030 


660 


001212* 


046767 


177042 


177026 



;ERR0H EXtCUTIO.M OF OTHER DEC/Xll MODULES, 
I^'C WARM JRECUPD HAVING TYPED OIFI THE WARNING MESSAGE, 

AFD I4,DRLADR jUPDATE TO POINT TO NEXT DRllL ADDR, 

ADD »4,[)PVCT JLOOh AT NEXT VECTOR, 

ASL POINT .'POINT TO NEXT DPUL, 

BCC IS J IF WE HAVENT LOOK AI ALL, LOOP, 



;ThIS SECTION OF CODE k\lLL COMPARE THE VECTOR ADDRESS 
JENTERED BY THE OPERATOR AGAINST THE VECIOR ADDRESS 
;CALCIFLATP-D BY THE PROGRAM FOP THE DRUM BY READING ITS CSR 

i 

MOV 
MOV 

MOV 



#t, POINT 

AnDR2jDFMADp 

VtCT2#DRVCT 



PIT 

BFQ 

MOV 
ChP 
BGE 



POINT, UVIDM 
3S 

nFMADR,CSRA 

DPVCT,«100 

7S 



►^OV USfERRTYF 
HpDEPS, BEGIN, NULL 



JSET UP POINTER, 

JSET UP FOR FIRST DRUM ADDRESS, 
JSET up FIRST DRUM VECTOR ADDR, AS 
JENXERED BY USER, 

I ANY DRUM SELECTED? 
J NO - GOTO 8S, 

JSET DRUM ADDR, FOR TYPEOUT (IF ANi). 
JIS VECTOR ADDR, > 100? 
jIF YES GOTO 78, 

JNO, 

jwRONG VEC ADDR 

JjDPUM VECTOR LESS THAN I01J 

jNOTEl IF ANY VECTOR WERE ALLOWED TO BE LESS 
J THAN 100, IT COULD iNTErtFEP WiTh 
J SOFTWARE TRAP CALL, EfC, 

JCLEAR ALL SOFTWARE FLAGS THAT 
IPOINT TO ANY DRUMS, 

JASCII MESSAGE CALL WITH COMMON HEADER 
JGOTO IDRINT, 

ISET DRll^* ADDR, FOR TYPEOUT (IF ANY), 

JGO GET THE VECTOR + PRIORITY FROM DRUM CSR, 

JDOES THE USER ENTERED VECTOR ADDRESS AGREE 
IWITH THE ADDRESS READ FROM THE CSR? 
jBR IF YES TO 718, 

MOV S15#ERRTYP jWRONG VfcC ADDR, 

HRDERS, BEGIN, WUIL ijUSER ENTERED VECTOR ADDRESS NOT SAME AS ON READ IN CSR 



CLR 

CLR 

CLR 

MSGNS 

BP 


DVIDM 
SRM 
SPB 
, BEGIN, Ms4f 
inpiNT 


MOV 
JSR 


DRMADR,CSRA 
PC»GETVP 


CMP 


DPVCT,VCTCA! 


BEG 


71S 



BIC 
BIC 



POINT, DVIDM 
POINT, SftM 



J DROP ALL SOFTWARE 
JFLAGS IriAT POINT TO 
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66i 

662 

663 

664 

665 

666 

667 

668 

669 

67M 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

68! 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

70« 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 



00l22e* 046767 177^34 
001226* 104403 000000* 
001234* 0C^0414 

001236* 005767 1771226 
W0I242' 001011 

001244* 026727 177£'06 
y01252* 003405 



t01254* 1044M3 000000* 003144' 



001262' 005267 177002 



177022 
0031S4' 


PIC 


POINT, SP& 
pBECn',MS4P 


7111 


TST 


8$ 


000005 


CMP 

BLE 


PflOR,#5 
8S 



mscns,9f:c:tn,ms2p 



90U66* 062767 
001274* 062767 
k.01302' 006367 
001306* 103264 



001310* 016767 
001316* 016767 
001324* 062767 
001332* 012767 

001340' 036767 
00J346' 001476 
001350' 016767 
001356' 004767 
001362* 012777 
001370* 005067 
001374' 036767 
001402' 001004 



000004 
000C^04 
176/52 


176740 
176750 


8SI 


ADD 
ADD 
A5L 
BCC 


S4,DHMADR 
»4#DRVCT 
pniMT 
6S 



lAUY UPllMS, 

JASCU "MESSAGE CALL wITI^ COMMON HEADER 

IGOTO 8$, 

;HAS ANY WARNING MESSAGE BEEN TYPED? 
»IF YES «• GOrO 8$ 

INO, IS THE PRIORITY OF THIS DEVICE > 57 

INO • GOTO 8S, 

JYES, 

JASCII MESSAGE CALL «ITIi COMMON HEADER 
JTEXTI WAPNINGI DRllL/M PRIORITY IS GREATER 
ITHF.N 5, THIS MAY INTERFER WITH ERROR FREE 
JEXFCUTION OF OTHER UECXll MODULES 



fUPPATE TO POINT TO NEXT DRUM ADDR, 

ILOOK AT NEXT VECTOR 

JPOINT TO NEXT DRUM 

MF i*E HAVENl LOOKED AT ALL, LOOP, 



176472 
176702 
000002 
000001 

176714 

176654 

001342 

001524* 

176672 

176660 



001404* 
001412* 



052777 

000402 



000400 176616 



001414* 005077 176616 



fTHlS SFCTION WILL DETERMTNC IF ALL DRULS SELECTED FOR 
JTEST WILL INTERRUPT. 



176712 
176712 
176704 
176720 

176672 

176522 

176664 

176646 



IDPINTI ^CV 
MOV 
APD 

Moy 

161 BIT 

BEQ 
MOV 
JSR 
MOV 
CI.R 
BIT 
BNE 

BIS 

BR 



ADDPfDRLAOR iSET ADDR, OF 1ST DRUL (IF ANY). 

AnDR2,DRMnJ3h ISET ADDR OF IST DRUM tIF ANY). 

I2,DRMDPP iFIX ADDR, OF DRUG'S DBR, 

«i, POINT IPOINT TO 1ST ONE, 

POINT, DVIDL fANY DRUL AT THIS POINT? 

5$ jli NO - GOTO 5S, 

DPLADR,CSPA fPECORD ADDR, OF DRUL, 

Pr,^ETVP IGET VECTOR ADDR. 

«4$,»VCTCAL iSFT VECTOR ADDR. INTP TO "4$". 

IFl'^a ICLEAP HAS INTERRUPTED FLAG, 

POINT, SRB lis IT CABLED TO A DRUM? 

2$ J IF jftS GOTO 2$, 

>RIT08,0DPLADR >N0 - SET BIT08 I'^ CSR TO GENERATE INTR, 

31 IGUTO 3$, 

enpMDtP ILOAD DRUMS DBR WITH DATA - THIS. 
ISHOULD CAUSE DRUL TO INTR, 



001420* 052777 000500 176602 3$l 

001426* 000240 

001430* 005767 176632 

001434* 001402 

001436' 104400 000pf^0' 



001442' 017767 176562 176432 31SI 



«RlT06JBIT08,9DfiLADP 



ISET INTR, ENABLE, 



NOP 




TST 


IFLAG 


PFQ 


31S 



EXITS, BEGIN 

MOV eDRLADP,ACSR 



iGIVE TIMF TO INTERRUPT (NO BREAK NEED, INTR, IMMED,), 
IHAS DEV, INTERRUPTED(IFLAG=l)? 
INO THEN REPORT AN ERROR, 

lEXIT TO MONITOR, MODULE WAIT FOR INTERRUPT, 
ICONTINUE AT THE POINT AFTER 
ITHE INTR, SERVICE ROUTINE, 
ISAVE CONTENTS OF CSR FOR TYPEOUT, 
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717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 



001450' 
001456* 
001464* 



001472* 
001500* 
001506* 
001514* 
001522* 

001524* 
001532' 



(M2777 
012767 
104405 



046767 
046767 
046767 
104403 
000410 

M42777 
005267 



0005(^0 176552 
000023 176422 

000000' 000000 



176562 176544 

176554 176542 

176546 176524 

000000' 003154' 



000500 176476 
176530 



001536' 000004 000000' 001544' 



001544' 
001552' 
001560' 
001564* 



001566* 
001574* 
001602* 
001610* 

001616* 
001624' 

001626' 
001634' 
001640' 
001646' 

001652' 
001660* 

001662' 
001670* 



062767 
062767 
006367 
103265 



f*167fi7 
016767 
062767 
<^12767 

036767 
001476 

016767 
004767 
012777 
005067 

036767 
001004 

052777 
000402 



000004 176456 
000004 176456 
176474 



176214 176436 
176424 176432 



000002 
000001 



176422 
176442 



001672' 005777 



001676' 052777 



176436 176416 761 



176402 176244 
001064 

002002' 176406 
176414 

176402 176370 



000400 176344 
176334 



001704' 
001706* 



000240 
003767 



000100 176330 
176354 



8$| 
9St 



BIC 



tPIT06|BIT08,@DRLADR 



ICLEAP INTR ENABLE 



MOV 8?3,ERRTYP fNO INTERRUPT 

HRDER$, BEGIN, NULL ||N0 INTEPHUPT FROM DRUL 



BIC POINT, SRL 
BIC POINT, SRB 
BIC Pf"n!T,DVIPL 
MSGN3, BEGIN, MS4P 
BR !i8 



JDROP THIS DEVICE FROM 

lANY DRUL PRESENT FLAGS (FROf CON, FLAG), 

;(FROM SINGULAR FLAG) 

I ASCI I MESSAGE CALL WITH COMMON HF.ADEP 

I GOTO 5S, 



BTC 
INC 



«RIT06lBIT08,(aURLADR jDEVICE INTR, TO HERE. CLEAR INXH. ENABLE 
If'^AG IJNDICATE DEV HAS INTR, ( IFLAG = 1 ) . 



PIR0S,BEGIN,5$ 



I QUEUE UP TO CONTINUE AT 5S AND RTJ 



ADD 


«4,DRI.,ADR 


ADD 


#4,DRMDBP 


ASL 


POIf'T 


BCC 


IS 



SPOINT TO ADDRESS OF NE/1 DRUL 

IPOINT TO NEXT ADDRESS OF DRUM (SHOULD THEY HE CABLED) 

;SET POINTER TO NEXT 

IIF NOT DONE ALL, LOOP, 



ITHIS SECTION OF CODE i^ILL DETERMINE IF ALL DRUMS SELECTED FOR 

ITEST WILL INTEPRUPT, 

I 







MOV 
MOV 
ADD 
MOV 

BIT. 
BEQ 

MOV 
JSR 
MOV 
CLP 

BIT 

BNE 

BIS 
BP 



NOP 
TST 



AODR,DPLDBP 
AnDF2,DRMADP 
«2,DRLDBP 
»1, POINT 

POINT, OVIDM 
US 

DRMADP,CSRA 
PCfGETVP 
#10S,i3VCTCAL 
IFLAG 

POINT, SRB 
8S 

«BIT08,PDPMAOP 
93 



ISET UP BASE DRUL ADDR 
ISET UP BASE DRUM AuDR, 
ILOOK AT DRUL DBR. 
ISET TO POINT AT FIRST DRUM, 

lANY DRUM AT THIS POINT? 
I NO - GOTO US, 

IDRUM ADDR GOES IN CSRA FOR GETVP, 

IGET DRUM VECTOR, 

ISET INTR, VECTOR TO 10$, 

ICLEAR HAS INTERRUPTED FLAG, 

lis DRUL CABLED TO DRUM? 
lYES GOTO 8S, 

|N0 - SET BIT08 a CSR TO GENERATE INTR. 
I GOTO 9S, 

9DRLDBR iREAD DPUL'S DBp, THIS wILL 

ICAU5E DRUM TO INTR, 

#PIT06,PDRMADR iSET INTERRUPT ENABLE, 

IGIVE TIME FOR DEV, TO INTR, 
Jfl-AG iHAS DEV INTERRUPTEDClFLAGslJ ? 
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) 



773 


001712* 


' 001402 






774 


001714* 


' 104 400 


0000(^0' 




775 










776 










777 










778 


^01720' 


017767 


176310 


176154 


779 


001726* 


' 042777 


POt3500 


176 300 


7S0 


001734' 


012767 


000023 


176144 


781 










7fi2 


<^C1742« 


104405 


00000Ot' 


000000 


783 










784 










765 


001 7 50' 


046767 


176304 


176264 


786 


OC1756' 


046767 


176276 


176262 


787 


0fll764' 


046767 


176270 


176256 


788 


001772' 


104403 


000000' 


003154' 


789 


002000' 


000410 






790 










791 


002002* 


042777 


00M500 


176224 


792 


002010' 


005267 


176252 




793 










794 


002014* 


000004 


000000' 


002022' 


795 










796 










797 


002022* 


062767 


000004 


176204 


798 


002030' 


062767 


00(;^(»04 


176174 


799 


fc02036' 


006367 


176216 




800 


002042* 


103265 






801 










802 










803 










804 










805 










806 


002044* 


016767 


176214 


176210 


807 










80S 










809 










810 










8U 










812 










813 


002052* 


005001 






814 


0020S4' 


012767 


000001 


176176 


815 


002062* 


036767 


176172 


176154 


816 


002070' 


001 Wl 4 






817 


002072' 


036767 


176162 


176146 


818 


002100' 


001010 






819 


002102' 


036767 


176152 


176140 


820 


002110' 


001004 






821 










822 


f^02112* 


006367 


176142 




823 


002116* 


001361 






824 


002120* 


000402 






825 










826 


0^2122* 


005 2P4 






827 


002124' 


0fc0772 






828 











BF.o yis 

fXlTSjBPGlN 



fi-^O-lHFN REPORT AN tPROP, 

leXIT TO MONITOR, MODULt ^hlt FOR iNTERKURT, 
;CONTlNJfc AT THE PUINT AFTER 
jTHe INTERRUPT SERVJCfc ROUTINE, 



MOV (3nF(-iACR,ACSP jSAVF CONTENTS OF CSH FOR TYPEOUT, 

BIC «»BIT06|BlT0H»iaDRMADR |H£PE 

MOV li23,KFRTYP jNO INTERRUPT OCCURRED 

HRDER$, BEGIN, NULL nCRll" FAILED TO INTERRUPT 



6IC POINT, Dvinn 
RIC F0INT»SRM 
EilC pniNT,SPB 
MSGNS, BEGIN, MS4P 
BR 1 IS 



jdrop this drum from all softwares 
;flags. 



JASCII MESSAGE CALL WITH COMMON HEAOER 
JGOTO lis. 



BIC 
INC 



«HT0biBIT0B,?DRMAOR fDEVICE INTR, CLEAR INTR ENABLE, 

IFLAG JltMDlCAIE DRUM INTERRUPTED, 



PIRQS, BEGIN, US 



I QUEUE UP TO CONTINUE AT US AND RTl 



ADD 
ADD 
ASL 
BCC 

? 

jINTEPHUPT ♦ DATA CHECKING SECTION 
iPEENTgy POINT AFTER "END l-ASS", 



?i4,DRMADF JADD 10 ADDRESS BASE TO 

#1»DPLDPR ILOOK AT NEXT ADDRESS RANGE, 

POINT jSET POINTER TO NEXT, 

7S jIF NOT DONE ALL# LOOP, 



PESTPTl MOV 



1TSET,ITCNT 



JPRESET ITERATION COUNT, 



JTHIS SECTION OF CODE WILL FIX ITCNT SO THAT IF RUNNING 

JMULTIPLE DEVICES* IT SHOULD ONLY TAKE THIS MODULE 1 HIN, pEP PASS. 

I 

JCOUNT DEVICES IN Rl, 

!FIX POINTER, 

>ANY OPUL'S AT THIS POINT? 

JYES THEN COUNT IT. 

|ANY DRUM'S AT THIS POINT? 

>YES THEN COUNT IT, 

|ANY PAIR AT THIS POINT? 

JYES THEN COUNT IT 

JFIX POINT TO LOOK AT NEXT SET, 

I IF NOT LOOKED AT ALL P01NTS»I.00P, ELSE EXIT, 

jEXn IF ALL POINTS TESTED, 

iCOn^T THIS DEVICE 



CLR 


PI 


MOV 


«l. POINT 


HIT 


POINT, SRL 


BNE 


38 


BIT 


POINT, SRM 


SNE 


3S 


BIT 


POINT, SPB 


BNE 


3S 


ASL 


POINT 


BNE 


IS 


BR 


as 


INC 


HI 


PR 


2S 
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029 
830 
831 
632 
833 
834 
835 
036 
837 
038 
839 
840 
841 
842 
84i 
844 
845 
846 
847 
648 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
B63 
8b4 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
678 
079 



032126' 162701 



002132' 
002136* 
002140' 
002146' 



162701 

100404 
062767 
000771 



002150' 005767 
«^02154* 001003 
0W2156* .^16767 
002164' ( 12767 



i;02l72' 
002200' 
002206* 
002214* 
002222* 
002230* 
002 2 36* 

0022 44* 
002250* 
002252* 
002256* 

002260' 
Ok;2264' 



002266* 
002266* 



0006^02 
!^0<4r02 
00600-^ 

175662 

176100 

0^^3042' 

175615? 
175602 

000002 
176004 
17F.776 

000 002 
000001 

175774 



t75ttS2 
176100 

176030 
176024 
176016 
176012 
176006 
1760k-.0 
176014 



016767 
016767 
062767 
016767 
016767 
062767 
012767 

005767 
00101 3 
005767 

001010 

005767 

001005 



104403 000f00' 003150' 



SUR 


»2,P1 


SUB 


n2,P\ 


BFI 


6S 


ADD 


S6000, ITCNT 


BR 


5S 


TST 


ICCNT 


BNE 


7S 


MOV 


iTr^T,iroNT 


MOV 


«PATLST,PATPNT 


MOV 


ACDF,nRLADR 


MOV 


ADr'R,DRLD8R 


ADD 


«?,DRLDBR 


MOV 


Al'UF2,0R^'ADR 


MOV 


ArDP2#DRMnBR 


ADD 


#2,DPMDP« 


MOV 


«1, POINT 


TST 


5FL 


BNE 


HsnOPK 


TST 


SRM 


BNE 


MWORK 


TST 


SPR 


PNE 


M.^ORK 



002274* 104410 000000* 



002300' 036767 
002306' 001404 

002310* 052777 
002316' 000406 

002320* 036767 
002326* 001430 

002330* 005777 

002334* 016767 

002342' 0^4767 



^SGNS,HEGIN»M53p 
ENDS,BEGr.' 



682 

883 0023S4' 052777 000100 175652 

884 002362* 104400 000000* 



175754 


175740 


MWOPKj 


PIT 

BEO 


POINT, SRF. 
IS 


0fe/0400 


175716 




BIS 
RP 


#PlT08,(aDPHADP 
2S 


175734 


175722 


ISJ 


BIT 
BEQ 


POINT, SPB 
L^-ORK. 


175676 






TST 


aOPLDBR 


175674 


175536 


2SI 


f^OV 


DFMADP,CSPA 


000356 






JSP 


PCGETVP 


002366' 


175700 




MOV 


#MSERV,i8VCTCAL 



BIS #BIT06,|DRMAOH 
EXITI, BEGIN 



jITCrtT ALREADY SET FOR FIRST 2 DEVICES, 

;ANY MORE DEVICES? 

>N0 THEN EXIT RIGHT COUM IN ITCNT. 
;YES UPDATE ITCNT FOR LESS ITfcRAIlONS, 
JLOOK FOR MOHE, 

jFIPST TIhE THROUGH? 
JNO BRANCH 
;YES - SET UP ICONT 
JSET UP PATTERN POINTER, 

JSET BASE ADUR, OF DRUL CSH, 

ISET BASF AODF Of DRU DbR, 

jEQUAL CSH+2, 

;SET BASE ADUR, OF DRUM CSR, 

ISET BASE ADDR, OF DRUM DBR 

JEQUAL CSP+2, 

jPOINT TO FIRST DRUL AND/OH LRU^, 

Jktn DRlirS LEFT TO TEST? 

;VES CONTINUE TESTING, 

;N0 - BUT ARE THE ANY DRUf^S LEFI? 

J YES - GO WORK ON THEM, 

;^o, 

JANY CABijED rOGETHEH? 
JYES-GO ^ORK ON THEM, 



JASCII MESSAGE CALL wITH COMHON HEADER 
iTEXTi "DFEA - NO MORE WOPDS TO 
JEXERCISE", 

; 

JDEC/XU END CALL TO DRCp THIS SOI-TaARE 
JMODULE FROM CURRENl PUN, 

fANy SINGULAR DRUMS FOR TEST? 
JNO - GOTO IS, 

lYES, SET BIT08 IN CSR TO GENERATE AN I^TR, 
JGOTO 2S, 

}ANY DRUL CABLE TO DRUM AT THIS POINT? 
JNO - GOTO "LWOHK", 

JYES - READ DRULS DBR THIS WILL CAUSE 
JURUM TO INTR, WHEN ITS INTh. tiMABLE IS SET 
JPUT CURRENT ADDB, IN C5RA FOR GETVP, 

JGET DRUM'S VECTOR ADDB, 

JSET UP VECTOP ADDH, INTR TO MSERV, 

jSET INTERRUPT ENABLE, 

JEXIT TO MONITOR, MODULE wAIT FOP INTERRUPT^ 



DPEC DEC/Xil 3YSTF.M EXERCISEP MODtlLE 
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&85 

886 

887 

888 

889 «i^2366' f^42777 00050tJ 175640 

890 

891 0t3?374' 0PP«004 000000' 002102* 

892 

893 

894 002402' 017777 175664 175626 

895 

896 IJ02410' 036767 175644 175626 

897 002416' 001004 
898 

899 002420' 036767 175634 175^22 

900 (d02426' 001501 
901 

902 002430' fU6767 175574 175442 

903 

904 002436' r04767 003262 

905 

906 002442* 012777 002462* 175604 

907 002450* 052777 000500 17555? 
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fSriOULD IWIERRUPT TO MSKRV, 
J DRUM INTFPBUPTS TC HERE 

PIT06|BIT08#|ORMADR fCLEAR DfcVICfcS P'TF, ENAliLE 

I QUEUE UP TO CONTINUE AT ^''DEL ANU RTA 



909 










910 


0«12456' 


104400 


000000' 




911 










912 










913 










914 


002462' 


U42777 


000500 


175540 


915 










916 


002470' 


0P0004 


000^.00' 


0P2476' 


917 










918 










919 


002476' 


036767 


175556 


175544 


920 


002504' 


fet01434 






921 










922 


002506' 


017767 


17?f?20 


175374 


923 


002514' 


016767 


175512 


175362 


924 


002522* 


016767 


175544 


175352 


925 


602530* 


017767 


175536 


175350 


926 


002536* 


026767 


175344 


175344 


927 


002544* 


001432 






928 










929 










930 










931 


002546' 


104404 


000000' 




932 










933 










934 










935 










936 










937 


002552' 


046767 


17!S502 


175470 


938 


002560* 


0467b7 


175474 


175460 


939 


002566* 


104403 


000000' 


003154' 


940 


002574* 


000416 







MDELi 
LWORKi 



I.DFLj 



BXC 

j«-«„«. ...-, — > 

piros#bi:gin,mpel 



MOV 



BIT 



BIT 
BFQ 



MOV 
J5R 



PPATPNT,0URHDBP jLUAD PATTERN INTO DBR OF DRUM, 



POINT, SRL 
IS 



POIMT,SRB 
LOOPE 



DNLADR,CSRA 
PCGETVP 



jSINGULAH DRllL FOP TEST CW/H8913)? 
JYES - GOTO IS, 



JANY DRllL/*^ PAIR AT THIS POIMT? 
fNO - GOTO LOOP END, 



JPUT ORllL ADUR IN CSRA FOR GETVP, 
fGO GET DPllL'S VECTOR ADDRESS, 



MOV #I.SH:RV,0VCTCAL jSET UP DRllL VECTOR TO INTR, TO LSERV, 
BIS ««^IT0PIBII06,SDRLADR fSET INTERRUPT ENABLE (063 ANU BlT08t 

}08 NO EFFECT IF CABLED PAIRf HOWEVER ^Ihl 

JCAUSE DRllL W/H8913 TO INTR, 
FXITS, BEGIN fEXIT TO MONITOR, MODULE i^lAIT FOR INTERRUPT, 



JDRUL INTRS, TO HERE 

»eiT06|PIT{iR,(3DRLADR iCLEAR INTR, ENABLE, 

» QUEUE UP TO CONTINUE AT LDEL AND RTl 



BIC 

PIPQS, BEGIN, LDEL 



t 



PIT 

PEQ 

MOV 
MOV 
HOV 
HOV 
CMP 
BFQ 



POINT, SRB 
23 

aDpLDBR,AWAS 

DPLDBR,WASADR 

PATPNT#SBADR 

gPATPriT,ASP 

ASBrAWAS 

Lr>OPE 



fSERVICING DRllL/M PAIR? 

INO - GOTO 2S, 

fYES, 

IPEAD DATA IN DBllL'S DBR, 

ISET FOR ERROR TYPEOUI IF ANY, 

JFOR EHROR TYPEOUT - ADDR OF TEST DAIA. 

>FOR ERROR TEST DATA, 

IDATA SENT = DATA RECEIVED? 

|YE5 - THEN LOOP END, 

INO, 



DATEkS, BEGIN jDATA ERROR! 11 

I «###««««««#»«««#«««»«»««»«««««««»«««««»«#««««««««»««»«« ««#«##«« 
iNOTEl IF TESTING SINGULAR DRUM W/H89U, 
fPATA WAS WRITE/READ FROM DRUM'S DBR, 
lIF DHUL/M PAIR, DATA fcAS WRITTEN 
UNTO DRUM'S DBR AND READ FROM DRUL'S DBH 

BIC POINT, 5RB JCLEAR ANY FLAGS ASSOC, wIlH DRUL 

PIC POINT, SRM rOP DRUL/M PAIR 

MSGN$, BEGIN, MS4P jASClI MESSAGE CALL WITH COMMON HEADER 

BP LOOPE IGOTO LOOP END, 



-.. 



DREC DEC/XU SYSTEM EXERCISER MODULE 
XOREC0,PU 27-MAR-79 08|57 



MACYU 30A(10'?2) 27«MAF-79 09100 PAGE 21 



94J 










942 


002576' 


036767 


175456 


175442 


943 


002604* 


001412 






944 










945 


002606* 


017767 


175424 


175274 


946 


002614' 


016767 


175416 


175262 


947 


002622* 


016767 


175406 


175250 


948 










949 


002630* 


000734 






950 










951 










952 










953 










954 










955 


002632* 


062767 


000004 


17537^^ 


956 


002640* 


062767 


0f;0004 


175364 


957 


002646* 


062767 


0000M4 


175360 


958 


002654* 


062767 


000004 


175354 


959 


to02662' 


006367 


175572 




q60 


002666* 


103204 






961 










9b2 


002670* 


062767 


000002 


175374 


9ft3 


002676* 


026727 


175370 


003142' 


964 


002704' 


001003 






965 










966 


002706' 


012767 


003042* 


175356 


967 










968 


002714' 








969 


K02714' 


104413 


000000' 




970 










971 


002720* 


(^00167 


177246 




972 










973 










974 










975 










976 










977 










978 










979 










980 










981 










982 










983 










984 










9b5 










986 










987 










988 










989 










990 










991 










992 










993 










994 


002724' 


017767 


173150 


175324 


995 


002732* 


042767 


177717 


175316 


996 


002740* 


006267 


175312 





LOOPEt 



BIT 
BEQ 



MOV 
MOV 



POINT, SPM 
Li'OPE 

(aDpMDBH,AWAS 

DPMDBR,WASADH 

DPMADP,CSRA 



JSINGLUAR DRUM w/h89l3? 
;H0 « JUST SINGLUAR DRUL 



GOTO LOOP END, 



lYES HEAD DATA FROM DRUM'S DBR, 
ISEI FOR ERROR TYPEOUT (IF ANY), 
;PECOPD ADDR, OF DRUM, 

;G0 DO DATA CHECK, 



jLOGIC LOUP END FOR SINGULAR OP PAIRED DEVICES, 



JUPOATE ALL ADDRESS BASFS 
JTO LOOK AT NEXT 
jSINGULAR DRUL OR DRU^ 
lOR DRUL/M PAIR, 
fPOiNT TO NEXT GROUP, 
lIF NOT DONE ALL-LOOP, 

jUPDATt TO LOOK AT NEXT PATTERN, 
IDONE ALL PATTERNS? 
»N0 - GOTO 2S, 



8PATLST,PATPNT jYES - RESET PATTERN POINTER, 



ADD 


»4,DRLAr)R 


ADD 


«4,DPLnBR 


ADD 


«4,DRMADP 


ADD 


»4,DRMDBP 


ASL 


POINT 


PCC 


Mi^OPK 


ADD 


«2#PATPNT 


CMP 


PCTPNT,«IPATEND 


BNF 


2$ 



ENDITS, BEGIN 

JHP Lf^OP 

> 

jWGETVP" 

1 

t 

I 

I 



JSIGNAL END OF ITERATION, 
»MOMTOR SHALL TEST END OF PASS 
JNO-LOOP WHOLE THING, 



SUBROUTINE TO CALCULATE A VECTOR ADDRESS AND 
PRIORITY OF A DRUL OR DRUM BASED ON INFORMATION 
IN THE DEVICE'S CSR, 
PRIORITY IS CALCULATED FROM CSR BITS 4 t 5 



STATE OF 



BITS 




BIT4 

1 



PRIORITY 

4 
5 



I 
> 
J 
} 
t 
I 
t 

MOV 
BIC 

ASP 



VECTOR ADDRESS IS FOUF^D IN CSR BITS fe)9»14, 
REPRESENT REAL ADDR, BITS 03-0B 

TO CALL THIS HOUTINEl 

MOV "ADDRESS", CSRA 

JSR PCGETVP 
RETURNS WITHI 

VECTOR ADDRESS IN VCTCAL 

PRIORITY IN PRIOR 



7 

THEY 



»CSRA#PRIOR 
#177717, PRIOR 

PRIOR 



JGET CSR INFORMATION 
fPRlORITY IN CSP BITS 4 AND 5 
IRIGHT JUSTIFY 4+5 INTO 



f 



IF 
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997 
998 
999 

1000 
\00\ 
1002 
1003 

100S 
JU06 
1007 
1008 
1009 
1010 
1011 

1012 
101J 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 



002744' 00fi267 

002750* 006267 

002754' 006267 

002760' 052767 

002766* 017767 
002774* 042767 
003002* 000367 
00300b' 006367 
003012' 006367 

003016' 017746 

003022' 042716 

003026* 052667 

001032' 017767 

003040' 000207 



003042' 
003046' 
303052' 
003056' 
003062' 
003066' 
003072' 
003076' 
003102' 
003106' 
003112' 
003116' 
003122' 
003126' 
003132' 
003136' 
t03142' 



177777 
177776 
177774 
177770 
177760 
177740 
177700 
177600 
177400 
177000 
176000 
174000 

170000 

160000 

140000 
100000 
000000 



175306 
175302 
175276 

000004 

1751^6 
100777 
175246 
175242 
175236 

175056 
177773 
175222 
175042 



000000 

000002 
000004 
0k?0010 
000020 
PM0040 
000100 

000200 

000400 
001000 
002000 
00400f^ 
010000 

020000 

040000 

100000 



175260 
175252 



ASP 
ASR 
ASR 
BIS 

MOV 

BIC 

SWAB 

ASL 

A5L 

MOV 
BIC 
BIS 
MOV 
FT5 



PPIOP 
PPIOB 
PPIOP 
»4»PRI0R 

BCSf-A,VCTCAL 
#100777, VCTCAL 
VCICAL 
VCTCAL 
VCTCAI. 

i3CSRA,-(SP) 
«177773,(SP) 
(SP)+, VCTCAI 
(3CSRA#AC5P 
PC 



jHiT POSITIONS J And 0, 

JDONE WITH PRIORITY. 



iQb.7 CSR INFORMATION AGAIN, 

;STRIPT FOR VECTOR INFORMATION IN BITS y-H, 

fCSR PITS 9 10 14 REPRESENT REAL 

fVECTOK ADDRESS BITS 03 TO 08, 

>S0 WE HAD TO PUT IHEM IN THAI POSITION, 

;0K, ^0^ Wt NEW BIT02 Ot THE VECTOR ADDH, 
fTHIS IS REPRESENTED BY CSR B1I02 SO ^E 
JMUST ADD THAT TO THE VECTOR ADDH, 
?RECORD STATUS OJ" CSR, 
>EXIT, WORK AIL DONE 



I 

ITHIS IS A LIST OF ALL PATTERNS USED BY THIS MODULE, 
?IT USPS A "FLOAT ZEPO-COMPLF-HtrtT" PATTERN, 



PATLSTi .WORD 


-1,0 


.WORD 


-2,2 


.WORD 


-4,4 


.WORD 


-10,10 


.WORD 


-20,20 


,WORD 


-40,40 


.WORD 


-100,100 


.WORD 


-200,200 


.WORD 


-400,400 


,WOPD 


-1000,1000 


.WORD 


•2000,2000 


.WORD 


-4000,40i90 


.WORD 


-10000,10000 


.WORD 


-20000,20000 


.WORD 


-40000, 40000 


.WORD 


-100000,100001 


PATENDi .WORD 
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1035 












1036 












1037 












103P 












1039 












1040 


^103144' 


003160* 


' 177777 






1041 


003150' 


003345' 


' 177777 






1042 


003154' 


003424' 


' 177777 






1043 












1044 


003160* 


053445 


051101 


044516 




1045 


003166* 


043516 


020041 


051104 




1046 


003174' 


030461 


027514 


020115 




1047 


001202' 


051120 


047511 


044522 




1048 


003210' 


054524 


044440 


020123 




1049 


003216' 


t,5ll07 


040505 


042524 




1M50 


003224' 


020122 


044124 


04710] 




1051 


003232' 


P12440 


056 






1052 


003235' 


045 


044124 


051511 




1053 


003242' 


046440 


054501 


H44440 


1 


1054 


003250' 


052116 


051105 


042506 


^ 


1055 


001256* 


042522 


053440 


052111 


hr 


1056 


<^03264' 


020110 


051105 


047522 


1 


1057 


003272' 


020122 


051106 


042505 


? 


1058 


003300* 


042440 


042530 


052503 


1 


1059 


«03306' 


044524 


0471J7 


047440 




1060 


003314' 


020106 


052117 


042510 




1061 


003322' 


020122 


042504 


027503 




1062 


003330' 


030530 


020061 


047515 




1063 


003336' 


ki52504 


042514 


022523 




1064 


003344' 


000 








1065 












If 66 


001345' 


045 


051104 


040505 




1067 


003352' 


026411 


047516 


046440 




1068 


003360' 


051117 


020J05 


047527 




1069 


003366' 


042122 


020123 


0420S0 




1070 


003374* 


030522 


046061 


047440 




1071 


003402' 


020122 


024515 


052040 




1(272 


003410' 


020117 


05 4105 


051105 




1073 


003416* 


044503 


042523 


000045 




1074 












1075 


003424* 


042045 


042522 


004501 




1076 


003432' 


042455 


051122 


051117 


jlP^^ 


1077 


003440' 


0471U 


020107 


051104 


|l||||i||| 


1078 


003446' 


030461 


046050 


047440 


'IHipW 


1079 


003454* 


K 20 1,2 2 


024515 


053440 


m^^^ 


1080 


003462' 


051117 


020104 


051104 




1081 


003470' 


050117 


042520 


020104 




1082 


003476' 


0SU06 


046517 


052040 




1083 


003504* 


051505 


022524 


000 




1084 




000001 







jASCIZ MESSAGF POINTERS ♦ MFSSAGES 



MS2PI .WORD MtS2,-l 
MS3PI .WORD MES3,-1 
MS4PS .WORD Mf:S4,«1 



MES2! .ASCII '%WAPN1NGI DHUL/M PRIORITY IS GREATER THAN 5. 



.ASCIZ •%TiHS NAY PiTEHFERF ^ITH ERROR tREE EXECUTION OF OTHER DEC/All MODULES! 



MES3I .ASCIZ •%nPEA -MO MORE WORDS CDRUL OP M) TO EXERCISE*' 



'%DREA -ERRORING DRIHL OR MJ WORD DROPPED FROM TE5T%* 
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ACSR 


00«?102R 


419« 


7i6» 


778* 


1011* 




















ADDR 


k)00006R 


385!> 


484 


493 


517 


553 


688 


747 


841 


642 










ADDR2 


0('0224R 


43eit 


487 


500 


534 


621 


689 


748 


844 


845 










ADDR22B 


00J000 


437SJ 


























ASB 


000106P 


423# 


925» 


926 






















ASTAT 


000104P 


42H 


























At^AS 


000U0R 


4240 


922« 


926 


945* 




















BEGIN 


000000R 


3B2« 


56P 


577 


587 


593 


6k)2 


635 


644 


656 


662 


672 


7i3 


7 22 






728 


734 


774 


782 


788 


794 


859 


862 


8R4 


891 


910 


916 


9J1 






939 


96<» 
























BIT0 a 


0W00«^1 


437» 


























BIT06 a 


000100 


468# 


708 


718 


731 


769 


779 


791 


883 


889 


907 


914 






BIT08 a 


0004^0 


468« 


702 


708 


719 


731 


763 


779 


791 


869 


889 


907 


914 




BITI a 


000002 


437» 


























BIT10 » 


007000 


437» 


























BITll s 


004000 


437« 


























81112 8 


010000 


437« 


























8IT13 8 


P20000 


437» 


























BIH4 8 


040000 


437» 


























BIT15 s 


100000 


437« 


























BIT2 8 


000004 


437# 


























BIT3 a 


000010 


437# 


























BIT4 s 


F00020 


437# 


























BITS a 


000040 


437# 


























BIT6 s 


000100 


437# 


























BIT7 8 


000200 


437# 


























BIT8 s 


WW0400 


437# 


























BIT9 s 


PI0I000 


437# 


























BREAK$8 


104 407 


437# 


























BRl 


0000 12R 


3fl7# 


























BR2 


00001 3P 


3P8« 


























BTODS a 


104421 


437# 


























CDATASs 


104412 


437i( 


























CKADP 


000456R 


bl6« 


























CKVTA 


000566R 


552« 


























CONFIG 


0000S6R 


4PI7« 


























CSRA 


000100P 


417» 

1011 


561* 


579* 


628* 


647* 


695* 


755* 


877* 


902* 


947* 


994 


1002 


1008 


DATCKSa 


104411 


437» 


























DATERS8 


104404 


4378 


931 
























DRLAOR 


M00230R 


445» 


5l7» 


521 


523* 


553* 


561 


579 


6i^8* 


688* 


695 


702* 


708* 


716 






718* 


731* 


737* 


841* 


902 


907* 


914* 


955* 












DRLDBR 


000232R 


446« 


747* 


749* 


766 


798* 


842* 


843* 


675 


922 


923 


956* 






DRMADR 


000234R 


447« 


534* 


539 


541* 


621* 


628 


647 


679* 


748* 


755 


763* 


769* 


778 






779» 


791» 


797* 


844* 


869* 


677 


883* 


889* 


947 


957* 








DRMDBR 


000236R 


448» 


689« 


690* 


705* 


738* 


845* 


846* 


894* 


945 


946 


958* 






DROP 


002266R 


490 


859« 
























DRVCT 


000252B 


454» 


554* 


563 


582 


609* 


622* 


629 


650 


680* 










DVIDL 


000240R 


4498 


498« 


518 


559 


574* 


590* 


693 


727* 












DVIDM 


000242P 


450« 


505* 


536 


625 


641* 


659* 


752 


785* 












DVIDl 


0000 14R 


389# 


475 


496 


498 


503 


505 


507 














ENDITSB 


104413 


437« 


9b9 
























ENDS 3 


104410 


437« 


862 
























ERPTYP 


000106R 


422# 


566* 


633* 


654* 


720* 


780* 
















EXITS a 


104400 


437« 


713 


774 


B84 


910 


















GETPAS8 


104415 


437« 



























! 
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GETVP 


002724R 


580 


648 


696 


756 


879 


904 


99^n 














GWBUF$s 


104414 


437« 


























HRDCNT 


000044R 


402f 


























HRDEPS= 


104405 


437« 


568 


587 


635 


656 


722 


782 














HRDPAS 


0000S0R 


404* 


























ICONT 


000036P 


399s 


836 


838« 






















ICOUNT 


000040P 


400# 


























IDNUM 


000122R 


429# 


























IDRINT 


001310R 


645 


688» 
























IFLAG 


000266R 


463S 


698* 


711 


732* 


758* 


772 


792* 














INIT 


000030R 


396« 


























INTR 


O00120R 


428# 


480* 
























ITCNT 


00k)2b2R 


458« 


806* 


833* 


838 




















ITSET 


000264R 


459» 


806 
























LDEL 


002476P 


916 


919«. 
























LOOP 


0021 7 2R 


B41» 


971 
























LOOPE 


002632P 


9C0 


927 


940 


943 


955« 


















LSEBV 


002462R 


906 


914» 
























LWOPK 


('02410R 


873 


896# 
























MAP22$a 


104416 


437« 


























MDEL 


k»02402P 


891 


894* 
























MES2 


003160R 


104(^ 


1044# 
























MFS3 


003345P 


1041 


1066» 
























MES4 


'»03424R 


1^4^ 


1075« 
























MODNAM 


0O0000R 


383i» 


























MODSP 


00022 4R 


397 


435« 
























MSEPV 


002366P 


881 


B89« 
























MSGNS 8 


104403 


437f( 


577 


593 


602 


644 


662 


672 


728 


788 


859 


939 






MSGS8 s 


104402 


437» 


























MSGS s 


104401 


437» 


























MS2P 


003144H 


602 


672 


ic^4ff# 






















MS3P 


00315«P 


859 


1041» 
























MS4F 


003154R 


577 


593 


644 


662 


728 


788 


939 


1042« 












MWORf 


002300P 


850 


852 


855 


866« 


960 


















NULL s 


«00000 


437« 


568 


587 


635 


656 


722 


782 














OPEN a 


00f?000 


384 


390 


391 


392 


393 


410 


411 


412 


413 


414 


415 


416 


417 






419 


421 


423 


424 


426 


427 


428 


437# 


445 


446 


44? 


448 


449 






450 


451 


452 


453 


454 


455 


456 


457 


458 


463 


465 


466 




OTOAS a 


104420 


437» 


























PASCNT 


K00034R 


398« 


























PATEND 


003142H 


963 


1034# 
























PATL5T 


003042P 


839 


966 


1018» 






















PATPNT 


000272R 


466« 


939* 


894 


924 


925 


962* 


963 


966* 












PIRQS 8 


000004 


437# 


734 


794 


891 


916 


















POINT 


000260R 


457« 


516* 


518 


524* 


533* 


536 


542* 


552* 


559 


590 


591 


592 


610' 






620* 


625 


659 


660 


661 


681* 


691* 


693 


699 


725 


726 


727 


739' 






750* 


732 


760 


785 


786 


787 


799* 


814* 


815 


817 


819 


622* 


847^ 






866 


872 


896 


899 


919 


937 


938 


942 


959* 










POPSP 8 


00S726 


4378 


























P0PSP2S 


022626 


437« 


























PRIOR 


000236R 


456# 


599 


668 


994* 


993* 


996* 


997* 


998* 


999* 


1000* 








PRTY a 


000000 


437S 


























PRTY0 a 


000000 


437« 


























PRTlfl 8 


000040 


437# 


























PRTY2 s 


000100 


437t 


























PPTY3 8 


000140 


437s 
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PRTY4 a 


fe?00200 


3fl7 


3fl8 


437# 




















PRTY5 a 


000240 


437» 
























PPTYb s 


^00300 


437K 
























PRTY7 8 


000340 


437fJ 
























PS s 


177776 


437* 
























PSW s 


177776 


437« 
























PUSH s 


005746 


437» 
























PUSH2 » 


024646 


437# 
























PAND$ a 


104417 


437» 
























PAfJNUM 


y00P54P 


4(?6» 
























RESTPT 


002044R 


425 


8068 






















RESl 


000056P 


4081 
























RES2 


00n060R 


4(^9» 
























PSTBT 


000U2R 


425« 
























SBADH 


k;00102P 


41B# 


924« 






















SOrCNT 


«'00042R 


401* 
























SOFEP|» 


104406 


437« 
























SOFPAS 


000046P 


4f?3# 
























SPOINT 


0k)0032P 


397# 
























SPSIZ a 


000040 


l# 


430 






















SPB 


000250R 


453» 
854 


507» 
072 


508» 
899 


509* 
919 


576* 
937* 


592* 


643* 


661* 


699 


726* 


760 


787* 819 


SRL 


C00244R 


451» 


496« 


497» 


508 


575* 


591* 


725* 


815 


849 


896 






SRM 


000246R 


452» 


503* 


504* 


509 


642* 


660* 


786* 


817 


851 


866 


938* 


942 


SPJ 


k^00016R 


390» 


497 


504 




















SR2 


000020P 


39l# 
























SR3 


000022R 


392« 
























SR4 


000024P 


393» 
























START 


000274R 


396 


475l» 






















STAT 


000026R 


395« 
























ST2 


000354R 


4fl5 


488 


4928 




















SVB0 


000062R 


410# 
























SVRl 


000064R 


41l» 
























SVR2 


000066F( 


412# 
























SVR3 


000070R 


413» 
























syR4 


O00072R 


414» 
























SVB5 


fcJ00074R 


4i5« 
























SVR6 


000076R 


4161 
























SYSCNT 


000052R 


405# 
























TRPDFDa 


000022 


437« 
























VCTCAL 


000254P 


455« 


582 


650 


697* 


757* 


881* 


906* 


1002* 


1003* 


1004* 


1005* 


1006* 1010^ 


VECTOR 


000010R 


386# 


554 






















VECT2 


00U226R 


410» 


622 






















WARN 


000270P 


465# 


556» 


596 


606» 


665 


677« 














MASADR 


P00104R 


420# 


923* 


946» 




















WDFR 


000116R 


427# 


482* 






















WDTO 


0001HP 


4261 


4fll» 






















XFLAG 


O00005P 


3848 
























8 ABS, 


000000 000 

003511 001 
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XDREC0,XDREC0/SOL/CRF|3YMbDDXCOM,XDREC0 
RUN-TIMEI 5 9 ,9 SECONDS 
RUN-TIME RATIOi 92/i6a5,5 
CORE USED I 7K (13 PAGES) 



